home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / amos / AMOSList-0998.lzh / AMOSLIST / 000161_bounce-amos-lis…et@onelist.com_Tue Sep 8 03:47:25 1998.msg < prev    next >
Text File  |  1998-10-01  |  4KB  |  158 lines
  1. >From bounce-amos-list--1022-mcox=access.digex.net@onelist.com  Tue Sep  8 03:47:25 1998
  2. Received: from onelist.com (pop.onelist.com [209.207.135.229])
  3.     by pony-1.mail.digex.net (8.8.8/8.8.8) with SMTP id DAA13445
  4.     for <mcox@access.digex.net>; Tue, 8 Sep 1998 03:47:25 -0400 (EDT)
  5. Received: (qmail 915 invoked by alias); 8 Sep 1998 07:45:13 -0000
  6. Received: (qmail 876 invoked from network); 8 Sep 1998 07:45:10 -0000
  7. Received: from unknown (HELO tungsten.btinternet.com) (194.73.73.81) by pop.onelist.com with SMTP; 8 Sep 1998 07:45:10 -0000
  8. Received: from np5gt [195.99.57.143]  by tungsten.btinternet.com with smtp (Exim 1.70 #1) id 0zGISO-00016x-00; Tue, 8 Sep 1998 08:44:56 +0100
  9. Message-ID: <001f01bddafc$cef94ba0$8f3963c3@np5gt>
  10. From: "John Glanville" <John.Glanville@btinternet.com>
  11. To: <amos-list@onelist.com>
  12. Date: Tue, 8 Sep 1998 08:46:24 +0100
  13. X-Priority: 3
  14. X-MSMail-Priority: Normal
  15. X-Mailer: Microsoft Outlook Express 4.72.3110.1
  16. X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
  17. Mailing-List: list amos-list@onelist.com; contact http://www.onelist.com
  18. Delivered-To: mailing list amos-list@onelist.com
  19. Precedence: bulk
  20. Reply-to: amos-list@onelist.com
  21. Mime-Version: 1.0
  22. Content-Type: text/plain; charset="iso-8859-1"
  23. Content-Transfer-Encoding: 7bit
  24. Subject: [amos-list] What about Vumeters?
  25. Status: O
  26. X-Status: 
  27.  
  28. From: "John Glanville" <John.Glanville@btinternet.com>
  29.  
  30. Has any one out there got any iteresting ideas for vumeters... here is a
  31. little prog i was mucking around with this morning... note that this is a
  32. rubbish prog ... And there is no need to run a speed check on it or even
  33. optimize it as it is only an idea...its just I've never really used Vumeters
  34. before.. so
  35. i was just looking....
  36.  
  37. !start of code!
  38. Screen Open 0,320,256,16,0
  39. Flash Off
  40. Curs Off
  41. Blit Clear -1
  42. ST:
  43. F$=Fsel$("")
  44. If F$<>""
  45.    Track Load F$,6
  46. Else
  47.    Goto ST
  48. End If
  49. Track Play 6
  50. Double Buffer
  51. Autoback 0
  52. Do
  53.    NV0=Vumeter(1)
  54.    NV1=Vumeter(2)
  55.    NV2=Vumeter(3)
  56.    If NV0>V0
  57.       V0=NV0
  58.    End If
  59.    If NV1>V1
  60.       V1=NV1
  61.    End If
  62.    If NV2>V2
  63.       V2=NV2
  64.    End If
  65.    If V0>1
  66.       V0=V0-2
  67.    End If
  68.    If V1>1
  69.       V1=V1-2
  70.    End If
  71.    If V2>1
  72.       V2=V2-2
  73.    End If
  74.    RCOL=V0/3
  75.    GCOL=V1/3
  76.    BCOL=V2/3
  77.    If RCOL>15
  78.       RCOL=15
  79.    End If
  80.    If GCOL>15
  81.       GCOL=15
  82.    End If
  83.    If BCOL>15
  84.       BCOL=15
  85.    End If
  86.    D#=1.5
  87.    NRCL=RCOL/D#
  88.    NGCL=GCOL/D#
  89.    NBCL=BCOL/D#
  90.    Colour 3,BCOL*256+GCOL*16+RCOL
  91.    Colour 4,GCOL*256+BCOL*16+RCOL
  92.    Colour 5,RCOL*256+GCOL*16+BCOL
  93.    Colour 6,NBCL*256+NGCL*16+NRCL
  94.    Colour 7,NGCL*256+NBCL*16+NRCL
  95.    Colour 8,NRCL*256+NGCL*16+NBCL
  96.    RCOL=RCOL+5
  97.    GCOL=GCOL+5
  98.    BCOL=BCOL+5
  99.    If RCOL>15
  100.       RCOL=15
  101.    End If
  102.    If GCOL>15
  103.       GCOL=15
  104.    End If
  105.    If BCOL>15
  106.       BCOL=15
  107.    End If
  108.    Colour 9,BCOL*256+GCOL*16+RCOL
  109.    Colour 10,GCOL*256+BCOL*16+RCOL
  110.    Colour 11,RCOL*256+GCOL*16+BCOL
  111.    If V0<>0
  112.       Ink 3
  113.       Bar 100,100-V0 To 110,100
  114.    End If
  115.    If V1<>0
  116.       Ink 4
  117.       Bar 115,100-V1 To 125,100
  118.    End If
  119.    If V2<>0
  120.       Ink 5
  121.       Bar 130,100-V2 To 140,100
  122.    End If
  123.    Ink 0
  124.    Bar 100,0 To 110,100-(V0)
  125.    Bar 115,0 To 125,100-(V1)
  126.    Bar 130,0 To 140,100-(V2)
  127.    Ink 6
  128.    F Draw 100,100 To 110,100
  129.    F Draw 110,100 To 110,100-V0
  130.    Ink 7
  131.    F Draw 115,100 To 125,100
  132.    F Draw 125,100 To 125,100-V1
  133.    Ink 8
  134.    F Draw 130,100 To 140,100
  135.    F Draw 140,100 To 140,100-V2
  136.    Ink 9
  137.    F Draw 100,100-V0 To 110,100-V0
  138.    F Draw 100,100-V0 To 100,100
  139.    Ink 10
  140.    F Draw 115,100-V1 To 125,100-V1
  141.    F Draw 115,100-V1 To 115,100
  142.    Ink 11
  143.    F Draw 130,100-V2 To 140,100-V2
  144.    F Draw 130,100-V2 To 130,100
  145.    Screen Swap
  146.    Wait Vbl
  147. Loop
  148.  
  149. !end of code!
  150.  
  151. Bye!
  152. Ps if you have amcaf you have faster Vu commands!
  153.  
  154.  
  155. ------------------------------------------------------------------------
  156. Help support ONElist, while generating interest in your product or
  157. service. ONElist has a variety of advertising packages. Visit
  158. http://www.onelist.com/advert.html for more information.